﻿Imports System.IO
Public Class FS
    Public Startup As String = Application.StartupPath + "\"
    Public Sub writeFile(ByVal filename As String, ByVal contents As String)
        File.WriteAllText(Me.Startup + filename, contents)
    End Sub
    Public Sub makeDir(ByVal DirName As String)
        Directory.CreateDirectory(Startup + DirName)
    End Sub
    Public Function exists(ByVal obj As String)
        If (File.Exists(Startup + obj)) Then
            Return True
        End If
        If (Directory.Exists(Startup + obj)) Then
            Return True
        End If
        Return False
    End Function



End Class
